home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Scope / Scope Disk #058 (199x)(Scope PD)(US)[WB].zip / Scope Disk #058 (199x)(Scope PD)(US)[WB].adf / B1Subs / PixAminer < prev    next >
Text File  |  1989-01-24  |  5KB  |  182 lines
  1.  
  2. CLEAR,25000
  3.  DIM Code%(1220),Look$(200),F$(40),File0$(40)
  4.  
  5. WINDOW 1,,(0,20)-(500,124),23
  6. WIDTH 77
  7. ON BREAK GOSUB Ciao:BREAK ON
  8.  
  9. 1 
  10.   COLOR 2,1:CLS
  11.   
  12. '**** put a routine to get FileName$ here ***
  13. '**** or just change the LISTing each time***
  14.   PRINT " INPUT the name of the picture you want to examine.
  15.   PRINT 
  16.   PRINT "If it is not on this disk use the device name as in;
  17.   PRINT: COLOR 3
  18.   PRINT ,"DF1:XYZ.pic
  19.   PRINT: COLOR 2
  20.   PRINT " For a demonstration, just press RETURN.
  21.   INPUT F$
  22.   FileName$=F$
  23.   IF F$="" THEN FileName$= "OB"
  24.         
  25.   CLS
  26.    PRINT ,"Checking ";FileName$
  27.  
  28. '****  The essentials for finding 
  29. '****  out whether a file is an IFF
  30. '****  picture, and if so, what kind. 
  31.  
  32.  ON ERROR GOTO IOerror
  33.  OPEN FileName$ FOR INPUT AS 1
  34.    Look$="": i=0
  35.    WHILE i<180 
  36.      Look$=Look$+INPUT$(1,1): i=i+1
  37.    WEND
  38.  CLOSE #1          
  39.  ON ERROR GOTO 0
  40.  
  41.   Wide     =  CVI(MID$(Look$,21,2))
  42.   High     =  CVI(MID$(Look$,23,2))
  43.   Deep     =  ASC(MID$(Look$,29,1))
  44.   MaxColor =  2^Deep-1
  45.   Mode     =  1
  46.   
  47.   IF Wide=640 THEN Mode=2
  48.   IF High=400 THEN Mode=Mode+2
  49.   IF Deep>5   THEN NoScreen=2 
  50.   IF Wide=640 AND Deep>4 THEN NoScreen=3
  51.   IF MID$(Look$,9,4)<>"ILBM" THEN
  52.     PRINT: PRINT "Not a standard IFF file"
  53.     GOSUB WayCheer: GOTO Ciao 
  54.   END IF
  55.   
  56. '****  The above essentials find 
  57. '****  out whether a file is an IFF
  58. '****  picture, and if so, what kind. 
  59.  
  60. '****  Now we'll print that info 
  61. '****  AND show what a Basic program
  62. '****  listing for it would look like. 
  63.  
  64.     COLOR 3   
  65.     PRINT " Width=";Wide;" Height=";High;
  66.     PRINT " Depth=";Deep;" Mode=";Mode;" MaxColor=";MaxColor
  67.     COLOR 2
  68.     PRINT " In a Basic program, this picture would need the following;"
  69.     PRINT "  SCREEN 2,";Wide;CHR$(8);",";High;CHR$(8);",";Deep;CHR$(8);",";Mode;":",
  70.     COLOR 3:PRINT "REM SCREEN listing":COLOR 2
  71.     PRINT "  WINDOW 2,,"; 
  72.     IF Wide>600 THEN PRINT "631,";:ELSE PRINT "311,";
  73.     IF High>240 THEN PRINT "384,";:ELSE PRINT "184,";
  74.     PRINT "16,2:",,
  75.     COLOR 3:PRINT "REM  NO border"
  76.     PRINT ,"OR":COLOR 2
  77.     PRINT "  WINDOW 2,";CHR$(34);"Title";CHR$(34);","; 
  78.     IF Wide>600 THEN PRINT "631,";:ELSE PRINT "311,";
  79.     IF High>240 THEN PRINT "384,";:ELSE PRINT "184,";
  80.     PRINT "31,2:",
  81.     COLOR 3:PRINT "REM  WITH border "
  82.     COLOR 2
  83.     
  84. '****  If it's a HAM picture we can
  85. '****  load it, but not access it
  86. '****  with Basic
  87.     IF NoScreen=2 THEN
  88.       PRINT 
  89.       PRINT ,FileName$;" is a HAM picture.
  90.       PRINT: PRINT " It will be displayed, but not manipulated by AmigaBASIC."
  91.       PRINT: MaxColor=3: GOTO LoadaPicStuff
  92.     END IF
  93.     COLOR 3   
  94.     PRINT " Do you want to create a screen and load it? ";
  95.     PRINT "Click on Y or N. 
  96.  
  97.  PRINT: COLOR 1,3: LOCATE 9: PRINT ,"  Y  "
  98.  PRINT: PRINT ,"  N  ": COLOR 3,1 
  99.  
  100.   WHILE NoPlace=LikeHome
  101.     XY=MOUSE(0): X=INT(MOUSE(1)/8): Y=INT(MOUSE(2)/8)
  102.     IF ABS(XY) AND X>15 AND X<20 THEN
  103.       IF Y=8 THEN LoadaPicStuff
  104.       IF Y=10 THEN Ciao
  105.     END IF  
  106.   WEND      
  107.  
  108. LoadaPicStuff:
  109.   LOCATE 11:COLOR 2
  110.   PRINT ,"Loading Assembly code
  111.   REM - Using assembly code by
  112.   REM -   Charles VASSALLO
  113.   REM - 33 route des Traouieros
  114.   REM - 22730 Tregastel - France
  115.   REM -       from the
  116.   REM -   March 1988 JumpDisk
  117.  
  118.   OPEN ":ILBM.code" FOR INPUT AS #1
  119.    i=0
  120.   WHILE NOT EOF(1)
  121.     INPUT#1,Code%(i): i=i+1
  122.   WEND
  123.  CLOSE #1: OpenFlag=0: GOSUB WayCheer
  124.   
  125.  IF NoScreen=0 THEN
  126.    COLOR 0,1:PRINT, "Loading picture
  127.    WINDOW 1 ',,(0,20)-(200,60)
  128.    SCREEN 2,Wide,High,Deep,Mode
  129.    WINDOW 2,,,0,2
  130.  END IF
  131.  
  132. ILBMloading:
  133.   File0$=FileName$+CHR$(0)
  134.   ILBMload&=VARPTR(Code%(0))
  135.   CALL ILBMload&(SADD(File0$))
  136.  
  137.   'OpenFlag=PEEK(2297+VARPTR(Code%(0)))
  138.   'PRINT OpenFlag 
  139.   '**** end of ILBMloading
  140.   
  141.  LOCATE 12              
  142.  PRINT: PRINT "  Draw, draw, draw      "
  143.  PRINT: PRINT "  Use RIGHT BUTTON on   "
  144.  PRINT: PRINT "  `SHOW OUTPUT' option  "
  145.  PRINT: PRINT "   for front screen     "
  146.  COLOR 1,0
  147. IF NoScreen THEN CLS
  148.  
  149.   XY=MOUSE(0): OldX=MOUSE(1): OldY=MOUSE(2)
  150.   WHILE Hell=NotFrozenOver
  151.     XY=MOUSE(0): X=MOUSE(1): Y=MOUSE(2)
  152.     LOCATE 2,3:PRINT X,Y
  153.     LINE(X,Y)-(OldX,OldY),RND*MaxColor
  154.     OldX=X:OldY=Y
  155.   WEND
  156.         
  157. IOerror:
  158.  COLOR 3,1
  159.  PRINT ,FileName$ ;" is not here"
  160.   Tries=Tries+1
  161.   IF Tries>10 THEN COLOR 2:PRINT ,"To run again with different FileName":PRINT ,"  Just type `RUN'":GOTO Ciao
  162.  RESUME 0
  163.  
  164. Ciao:
  165.   WINDOW 1
  166.   WINDOW CLOSE 2: SCREEN CLOSE 2
  167.   CLEAR,25000
  168.   COLOR 1,2:LOCATE 13,15 
  169.   PRINT "  Thank you for your support.  ";
  170.   LOCATE 9,1
  171.   COLOR 2,1
  172.   END
  173.   
  174. WayCheer:
  175.   XY=MOUSE(0):COLOR 3
  176.   PRINT ,"Click to load pic";
  177.   WHILE MOUSE(0)=0:SLEEP:WEND
  178.   WHILE ABS(MOUSE(0)):SLEEP:WEND
  179.  RETURN
  180.  
  181. ' 
  182.